home *** CD-ROM | disk | FTP | other *** search
- 0250 //
- 0260 PROC CONVERT(NUMBER) CLOSED
- 0270 IMPORT BASE#,RES$
- 0280 IF NUMBER<>0 THEN
- 0290 POWER:=INT(LOG(NUMBER)/LOG(BASE#))
- 0300 FOR COUNT:=POWER TO 0 STEP -1 DO
- 0310 DIGIT:=INT(NUMBER/(BASE#^COUNT))
- 0320 NUMBER:=NUMBER-DIGIT*BASE#^COUNT
- 0330 IF DIGIT<10 THEN
- 0340 RES$:+CHR$(DIGIT+ORD("0"))
- 0350 ELSE
- 0360 RES$:+CHR$(DIGIT-10+ORD("┴"))
- 0370 ENDIF
- 0380 ENDFOR COUNT
- 0390 ELSE
- 0400 RES$:="0"
- 0410 ENDIF
- 0420 ENDPROC CONVERT
-